#!
$sentence = " the quick brown fox jumped over the lazy dog";
@words = split(/ /,$sentence);
foreach $word (@words)
{
	print "$word\n";
}
@words = sort(@words);
foreach $word (@words)
{
	print "$word\n";
}

print "use join:\n";
print join("\n-",@words);
